import Numeric
import Data.List
import Data.Char

listOfPotentials = [x | x <- [1..1000000], palendromicBinary x, palendromicDecimal x]
	where
		palendromicDecimal x = xInDecimal == reverse xInDecimal
			where
				xInDecimal = show x
		palendromicBinary  x = xInBinary  == reverse xInBinary
			where 
				xInBinary  = showIntAtBase 2 intToDigit x ""
euler_036 = sum listOfPotentials